home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000104_icon-group-sender _Mon Dec 7 16:28:29 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  1KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id QAA17520
  4.     for icon-group-addresses; Mon, 7 Dec 1998 16:27:42 -0700 (MST)
  5. Message-Id: <199812072327.QAA17520@baskerville.CS.Arizona.EDU>
  6. To: icon-group@optima.CS.Arizona.EDU
  7. Date: 7 Dec 1998 16:41:36 -0500
  8. From: "Nevin Liber" <nevin@eviloverlord.com>
  9. Subject: RE: Past Keyword / Coexpr Help
  10. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  11. Status: RO
  12.  
  13. > The scanning mechanism I want would perhaps be called "past", as in
  14. >
  15. >     numberchars := (&digits ++ 'e' ++ 'E' ++ '+' ++ '-' ++ '.')
  16. >     string ?
  17. >     {
  18. >        tab(past("substring"))
  19. >        result := real(tab(many(numberchars)))
  20. >     }
  21.  
  22. It has find(), and it is fairly trivial to write past() using find.  Here
  23. you go:
  24.  
  25.     procedure past(s1, s2, i1, i2)
  26.  
  27.         suspend find(s1, s2, i1, i2) + *s1
  28.  
  29.     end
  30. __
  31.  Nevin ":-)" Liber  <mailto:nliber@aivia.com>  (312) 855-1000 x199
  32.  
  33. National Systems Corporation
  34. 414 North Orleans Street, Suite 501
  35. Chicago, IL 60610-4490
  36. fax: (312) 222-1605
  37. <http://www.aivia.com/>
  38.  
  39.  
  40.